home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update16.zoo / gcc-2.0 / gcc-20.diff < prev    next >
Encoding:
Text File  |  1992-03-06  |  58.8 KB  |  2,131 lines
  1. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/c-aux-info.c    Sat Feb 15 16:24:40 1992
  2. --- c-aux-info.c    Fri Mar  6 15:18:03 1992
  3. ***************
  4. *** 59,65 ****
  5.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  6.      the few exceptions to the general rule here.  */
  7.   
  8. ! #if !(defined (USG) || defined (VMS))
  9.   extern char *getwd ();
  10.   #define getcwd(buf,len) getwd(buf)
  11.   #define GUESSPATHLEN (MAXPATHLEN + 1)
  12. --- 59,65 ----
  13.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  14.      the few exceptions to the general rule here.  */
  15.   
  16. ! #if !(defined (USG) || defined (VMS) || defined(CROSSHPUX))
  17.   extern char *getwd ();
  18.   #define getcwd(buf,len) getwd(buf)
  19.   #define GUESSPATHLEN (MAXPATHLEN + 1)
  20. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/c-decl.c    Thu Feb 13 17:21:26 1992
  21. --- c-decl.c    Fri Mar  6 15:18:01 1992
  22. ***************
  23. *** 5351,5356 ****
  24. --- 5351,5358 ----
  25.   
  26.     expand_function_start (fndecl, 0);
  27.   
  28. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  29. +   /* we will only need this in cp-decl.c, not here */
  30.     /* If this function is `main', emit a call to `__main'
  31.        to run global initializers, etc.  */
  32.     if (DECL_NAME (fndecl)
  33. ***************
  34. *** 5357,5362 ****
  35. --- 5359,5365 ----
  36.         && strcmp (IDENTIFIER_POINTER (DECL_NAME (fndecl)), "main") == 0
  37.         && DECL_CONTEXT (fndecl) == NULL_TREE)
  38.       expand_main_function ();
  39. + #endif
  40.   }
  41.   
  42.   /* SPECPARMS is an identifier list--a chain of TREE_LIST nodes
  43. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/cccp.c    Tue Feb 18 19:52:51 1992
  44. --- cccp.c    Fri Mar  6 15:18:06 1992
  45. ***************
  46. *** 58,63 ****
  47. --- 58,65 ----
  48.   #undef bzero
  49.   #undef bcmp
  50.   
  51. + #ifndef atarist
  52. + 
  53.   #include <sys/types.h>
  54.   #include <sys/stat.h>
  55.   #include <ctype.h>
  56. ***************
  57. *** 66,85 ****
  58.   
  59.   #ifndef VMS
  60.   #include <sys/file.h>
  61. ! #ifndef USG
  62.   #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  63.   #include <sys/resource.h>
  64.   #else
  65.   #define index strchr
  66.   #define rindex strrchr
  67.   #include <time.h>
  68.   #include <fcntl.h>
  69. ! #endif /* USG */
  70.   #endif /* not VMS */
  71. -   
  72.   extern char *index ();
  73.   extern char *rindex ();
  74.   
  75.   /* VMS-specific definitions */
  76.   #ifdef VMS
  77.   #include <time.h>
  78. --- 68,105 ----
  79.   
  80.   #ifndef VMS
  81.   #include <sys/file.h>
  82. ! #if (!(defined(USG) || defined(atariminix)))
  83.   #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  84.   #include <sys/resource.h>
  85.   #else
  86. + #ifndef atariminix
  87.   #define index strchr
  88.   #define rindex strrchr
  89. + #endif
  90.   #include <time.h>
  91.   #include <fcntl.h>
  92. ! #endif /* USG or atariminix */
  93.   #endif /* not VMS */
  94.   extern char *index ();
  95.   extern char *rindex ();
  96.   
  97. + #else    /* atarist */
  98. + 
  99. + #include <ctype.h>
  100. + #include <stdio.h>
  101. + #include <types.h>
  102. + #include <stat.h>
  103. + #include <file.h>
  104. + #include <time.h>
  105. + #include <string.h>
  106. + #include "stddef.h"
  107. + 
  108. + long _stksize = -1L;    /* want big stack cause include files
  109. +                    get alloca'ed there */
  110. + 
  111. + #endif        /* atarist */
  112. +   
  113. + 
  114.   /* VMS-specific definitions */
  115.   #ifdef VMS
  116.   #include <time.h>
  117. ***************
  118. *** 847,853 ****
  119. --- 867,927 ----
  120.   /* Nonzero means -I- has been seen,
  121.      so don't look for #include "foo" the source-file directory.  */
  122.   static int ignore_srcdir;
  123. +  
  124. + #ifdef atarist
  125. + /* a little frobule to filter incoming file data */
  126. + int eunuchs_read(f, buf, size)
  127. + int f;
  128. + char * buf;
  129. + int size;
  130. + {
  131. +     char local_buf[1024];
  132. +     register int result_size;
  133. +     register char * local_bufp, * target_bufp;
  134. +     register int buf_size, size_read;
  135. +     
  136. +     for (result_size = 0, target_bufp = buf ; size > 0 ; size -= 1024)
  137. +     { /* do a buffer */
  138. +     if (size > 1024)
  139. +         buf_size = 1024;
  140. +     else
  141. +         buf_size = size;
  142. +     size_read = read(f, &local_buf, buf_size);
  143. +     for (local_bufp = (char * ) &local_buf; size_read > 0 ; size_read--)
  144. +         if (*local_bufp == '\r')
  145. +         local_bufp++;
  146. +         else
  147. +         {
  148. +         *target_bufp++ = *local_bufp++;
  149. +         result_size++;
  150. +         }
  151. +     }
  152. +     return(result_size);
  153. + }
  154. + 
  155. + /* the following dingus is used in place of some calls to bcopy,
  156. +    to ensure that backslashes get properly slashified when getting
  157. +    shoved into strings.  Note that it returns the new pointer!!
  158. +    There ought to be a better way... */
  159. + 
  160. + U_CHAR * slashifying_bcopy(from_buf, to_buf, nbytes)
  161. + U_CHAR * from_buf, * to_buf;
  162. + int nbytes;
  163. + {
  164. +   for ( ; nbytes > 0 ; )
  165. +     {
  166. +     if(*from_buf == '\\')
  167. +         *to_buf++ = '\\';
  168. +     *to_buf++ = *from_buf++;
  169. +     nbytes--;
  170. +     }
  171. +   return(to_buf);
  172. + }
  173. + #define read(a, b, c) eunuchs_read(a, b, c)
  174. + 
  175. + #endif        /* atarist */
  176.   
  177. + #ifndef atarist
  178.   /* Handler for SIGPIPE.  */
  179.   
  180.   static void
  181. ***************
  182. *** 857,862 ****
  183. --- 931,937 ----
  184.   {
  185.     fatal ("output pipe has been closed");
  186.   }
  187. + #endif /* atarist */
  188.   
  189.   int
  190.   main (argc, argv)
  191. ***************
  192. *** 891,896 ****
  193. --- 966,976 ----
  194.     /* Target-name to write with the dependency information.  */
  195.     char *deps_target = 0;
  196.   
  197. + #ifdef atarist
  198. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  199. + /*  _malloczero(1); */     /* zero mallocs by default */
  200. + #endif  
  201. + 
  202.   #ifdef RLIMIT_STACK
  203.     /* Get rid of any avoidable limit on stack size.  */
  204.     {
  205. ***************
  206. *** 939,944 ****
  207. --- 1019,1025 ----
  208.     signal (SIGPIPE, pipe_closed);
  209.   #endif
  210.   
  211. + #ifndef atarist
  212.     for (i = 0; include_defaults[i].fname; i++)
  213.       max_include_len = MAX (max_include_len,
  214.                  strlen (include_defaults[i].fname));
  215. ***************
  216. *** 946,952 ****
  217.   #ifdef VMS
  218.     max_include_len += 10;
  219.   #endif
  220. ! 
  221.     bzero (pend_files, argc * sizeof (char *));
  222.     bzero (pend_defs, argc * sizeof (char *));
  223.     bzero (pend_undefs, argc * sizeof (char *));
  224. --- 1027,1036 ----
  225.   #ifdef VMS
  226.     max_include_len += 10;
  227.   #endif
  228. ! #else
  229. !   max_include_len = 80;    /* arbitrary value */
  230. ! #endif
  231. !   
  232.     bzero (pend_files, argc * sizeof (char *));
  233.     bzero (pend_defs, argc * sizeof (char *));
  234.     bzero (pend_undefs, argc * sizeof (char *));
  235. ***************
  236. *** 1145,1154 ****
  237. --- 1229,1244 ----
  238.       break;
  239.   
  240.         case 'v':
  241. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  242. + #include "PatchLev.h"
  243. +     fprintf (stderr, "GNU CPP-atariST version %s Patchlevel %s",
  244. +          version_string, PatchLevel);
  245. + #else
  246.       fprintf (stderr, "GNU CPP version %s", version_string);
  247.   #ifdef TARGET_VERSION
  248.       TARGET_VERSION;
  249.   #endif
  250. + #endif
  251.       fprintf (stderr, "\n");
  252.       break;
  253.   
  254. ***************
  255. *** 1282,1287 ****
  256. --- 1372,1378 ----
  257.       }
  258.     }
  259.   
  260. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  261.     /* Add dirs from CPATH after dirs from -I.  */
  262.     /* There seems to be confusion about what CPATH should do,
  263.        so for the moment it is not documented.  */
  264. ***************
  265. *** 1291,1296 ****
  266. --- 1382,1388 ----
  267.     p = (char *) getenv ("CPATH");
  268.     if (p != 0 && ! no_standard_includes)
  269.       path_include (p);
  270. + #endif
  271.   
  272.     /* Now that dollars_in_ident is known, initialize is_idchar.  */
  273.     initialize_char_syntax ();
  274. ***************
  275. *** 1411,1434 ****
  276.   
  277.     done_initializing = 1;
  278.   
  279.     { /* read the appropriate environment variable and if it exists
  280.          replace include_defaults with the listed path. */
  281.       char *epath = 0;
  282. !     switch ((objc << 1) + cplusplus)
  283. !       {
  284.         case 0:
  285. !     epath = getenv ("C_INCLUDE_PATH");
  286.       break;
  287.         case 1:
  288. !     epath = getenv ("C++_INCLUDE_PATH");
  289.       break;
  290.         case 2:
  291. !     epath = getenv ("OBJC_INCLUDE_PATH");
  292.       break;
  293.         case 3:
  294. !     epath = getenv ("OBJC++_INCLUDE_PATH");
  295. !     break;
  296. !       }
  297.       /* If the environment var for this language is set,
  298.          add to the default list of include directories.  */
  299.       if (epath) {
  300. --- 1503,1550 ----
  301.   
  302.     done_initializing = 1;
  303.   
  304. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  305. +   for(i = 0; i < 4; i++)
  306. + #endif
  307.     { /* read the appropriate environment variable and if it exists
  308.          replace include_defaults with the listed path. */
  309.       char *epath = 0;
  310. ! #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  311. !     switch(i)
  312. !     {
  313.         case 0:
  314. !     epath = getenv("GNUINC");
  315.       break;
  316. + 
  317.         case 1:
  318. !     epath = getenv("GNULIB");
  319.       break;
  320. + 
  321.         case 2:
  322. !     if(cplusplus) epath = getenv("GXXINC"); else epath = 0;
  323.       break;
  324. +     
  325.         case 3:
  326. ! #endif
  327. !     switch ((objc << 1) + cplusplus)
  328. !     {
  329. !       case 0:
  330. !         epath = getenv ("C_INCLUDE_PATH");
  331. !         break;
  332. !       case 1:
  333. !         epath = getenv ("C++_INCLUDE_PATH");
  334. !         break;
  335. !       case 2:
  336. !         epath = getenv ("OBJC_INCLUDE_PATH");
  337. !         break;
  338. !       case 3:
  339. !         epath = getenv ("OBJC++_INCLUDE_PATH");
  340. !         break;
  341. !     }
  342. ! #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  343. !     }
  344. ! #endif
  345. !     
  346.       /* If the environment var for this language is set,
  347.          add to the default list of include directories.  */
  348.       if (epath) {
  349. ***************
  350. *** 1437,1443 ****
  351. --- 1553,1563 ----
  352.         char *startp, *endp;
  353.   
  354.         for (num_dirs = 1, startp = epath; *startp; startp++)
  355. + #ifdef atarist
  356. +     if ((*startp == ';') || (*startp == ','))
  357. + #else
  358.       if (*startp == ':')
  359. + #endif
  360.         num_dirs++;
  361.         include_defaults
  362.       = (struct default_include *) xmalloc ((num_dirs
  363. ***************
  364. *** 1446,1452 ****
  365. --- 1566,1576 ----
  366.         startp = endp = epath;
  367.         num_dirs = 0;
  368.         while (1) {
  369. + #ifdef atarist
  370. +     if ((*endp == ';') || (*endp == ',') || (*endp == '\0')) {
  371. + #else
  372.       if ((*endp == ':') || (*endp == '\0')) {
  373. + #endif
  374.         strncpy (nstore, startp, endp-startp);
  375.         if (endp == startp)
  376.           strcpy (nstore, ".");
  377. ***************
  378. *** 1455,1461 ****
  379. --- 1579,1589 ----
  380.   
  381.         max_include_len = MAX (max_include_len, endp-startp+2);
  382.         include_defaults[num_dirs].fname = savestring (nstore);
  383. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  384. +       include_defaults[num_dirs].cplusplus = (i > 1) ? cplusplus : 0;
  385. + #else
  386.         include_defaults[num_dirs].cplusplus = cplusplus;
  387. + #endif
  388.         num_dirs++;
  389.         if (*endp == '\0')
  390.           break;
  391. ***************
  392. *** 1473,1480 ****
  393. --- 1601,1616 ----
  394.        tack on the standard include file dirs to the specified list */
  395.     if (!no_standard_includes) {
  396.       struct default_include *p = include_defaults;
  397. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  398. +     char *specd_prefix = NULL;
  399. + #else
  400.       char *specd_prefix = getenv ("GCC_EXEC_PREFIX");
  401. + #endif
  402. + #ifdef GCC_INCLUDE_DIR
  403.       char *default_prefix = savestring (GCC_INCLUDE_DIR);
  404. + #else
  405. +     char *default_prefix = savestring ("./");
  406. + #endif
  407.       int default_len = 0;
  408.       /* Remove the `include' from /usr/local/lib/gcc.../include.  */
  409.       if (!strcmp (default_prefix + strlen (default_prefix) - 8, "/include")) {
  410. ***************
  411. *** 1481,1486 ****
  412. --- 1617,1628 ----
  413.         default_len = strlen (default_prefix) - 7;
  414.         default_prefix[default_len] = 0;
  415.       }
  416. + #ifdef atarist
  417. +     else if (!strcmp (default_prefix + strlen (default_prefix) - 8, "\\include")) {
  418. +       default_len = strlen (default_prefix) - 7;
  419. +       default_prefix[default_len] = 0;
  420. +     }
  421. + #endif
  422.       /* Search "translated" versions of GNU directories.
  423.          These have /usr/local/lib/gcc... replaced by specd_prefix.  */
  424.       if (specd_prefix != 0 && default_len != 0)
  425. ***************
  426. *** 1635,1641 ****
  427. --- 1777,1787 ----
  428.         char *p1 = p;
  429.         /* Discard all directory prefixes from P.  */
  430.         while (*p1) {
  431. + #ifdef atarist
  432. +     if ((*p1 == '/') || (*p1 == '\\'))
  433. + #else
  434.       if (*p1 == '/')
  435. + #endif
  436.         p = p1 + 1;
  437.       p1++;
  438.         }
  439. ***************
  440. *** 1795,1800 ****
  441. --- 1941,1947 ----
  442.     return 0;
  443.   }
  444.   
  445. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  446.   /* Given a colon-separated list of file names PATH,
  447.      add all the names to the search path for include files.  */
  448.   
  449. ***************
  450. *** 1849,1854 ****
  451. --- 1996,2002 ----
  452.         p++;
  453.       }
  454.   }
  455. + #endif
  456.   
  457.   /* Pre-C-Preprocessor to translate ANSI trigraph idiocy in BUF
  458.      before main CCCP processing.  Name `pcp' is also in honor of the
  459. ***************
  460. *** 3433,3440 ****
  461. --- 3581,3597 ----
  462.   
  463.         if (string)
  464.       {
  465. + #ifndef atarist
  466.         buf = (char *) alloca (3 + strlen (string));
  467.         sprintf (buf, "\"%s\"", string);
  468. + #else
  469. +           buf = (char *) alloca (16 + strlen (string));
  470. +           {
  471. +           char *tbuf = (char *) alloca (16 + strlen (string));
  472. +           (void) slashifying_bcopy(string, tbuf, strlen(string)+1);
  473. +           sprintf (buf, "\"%s\"", tbuf);
  474. +           }
  475. + #endif /* atarist */
  476.       }
  477.         else
  478.       buf = "\"\"";
  479. ***************
  480. *** 3636,3642 ****
  481. --- 3793,3804 ----
  482.           dsp[0].next = search_start;
  483.           search_start = dsp;
  484.   #ifndef VMS
  485. + #ifdef atarist
  486. +         if((ep = rindex(nam, '\\')) == NULL)
  487. +         ep = rindex(nam, '/');
  488. + #else
  489.           ep = rindex (nam, '/');
  490. + #endif
  491.   #else                /* VMS */
  492.           ep = rindex (nam, ']');
  493.           if (ep == NULL) ep = rindex (nam, '>');
  494. ***************
  495. *** 3726,3734 ****
  496. --- 3888,3910 ----
  497.   
  498.     /* If specified file name is absolute, just open it.  */
  499.   
  500. + #ifdef atarist
  501. +   if ((*fbeg == '\\') || (*fbeg == '/')) {
  502. +     if(fbeg[2] == ':')
  503. +     { /* allow "\D:\xxx" */
  504. +         strncpy (fname, fbeg+1, flen-1);
  505. +         fname[flen-1] = 0;
  506. +     }
  507. +     else
  508. +     {  /* allow "\lib\xxx" == "\currentdrive:\lib\xxx" */
  509. +         strncpy (fname, fbeg, flen);
  510. +         fname[flen] = 0;
  511. +     }
  512. + #else
  513.     if (*fbeg == '/') {
  514.       strncpy (fname, fbeg, flen);
  515.       fname[flen] = 0;
  516. + #endif
  517.       if (importing)
  518.         f = lookup_import (fname);
  519.       else
  520. ***************
  521. *** 3747,3753 ****
  522. --- 3923,3933 ----
  523.       if (searchptr->fname[0] == 0)
  524.         continue;
  525.       strcpy (fname, searchptr->fname);
  526. + #ifdef atarist
  527. +     strcat (fname, "\\");
  528. + #else
  529.       strcat (fname, "/");
  530. + #endif
  531.       fname[strlen (fname) + flen] = 0;
  532.         } else {
  533.       fname[0] = 0;
  534. ***************
  535. *** 6627,6634 ****
  536. --- 6807,6818 ----
  537.     check_expand (op, len + 1);
  538.     if (op->bufp > op->buf && op->bufp[-1] != '\n')
  539.       *op->bufp++ = '\n';
  540. + #ifdef atarist
  541. +   op->bufp = slashifying_bcopy (line_cmd_buf, op->bufp, len);
  542. + #else
  543.     bcopy (line_cmd_buf, op->bufp, len);
  544.     op->bufp += len;
  545. + #endif
  546.     op->lineno = ip->lineno;
  547.   }
  548.   
  549. ***************
  550. *** 8199,8204 ****
  551. --- 8383,8389 ----
  552.     deps_buffer[deps_size] = 0;
  553.   }
  554.   
  555. + #if (!(defined(atarist) || defined(atariminix)))
  556.   #if defined(USG) || defined(VMS)
  557.   #ifndef BSTRING
  558.   
  559. ***************
  560. *** 8266,8272 ****
  561.   }
  562.   #endif /* not BSTRING */
  563.   #endif /* USG or VMS */
  564. ! 
  565.   
  566.   static void
  567.   fatal (str, arg)
  568. --- 8451,8457 ----
  569.   }
  570.   #endif /* not BSTRING */
  571.   #endif /* USG or VMS */
  572. ! #endif /* any atari */
  573.   
  574.   static void
  575.   fatal (str, arg)
  576. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/cp-tree.c    Tue Feb  4 10:32:23 1992
  577. --- cp-tree.c    Fri Mar  6 15:18:09 1992
  578. ***************
  579. *** 1619,1624 ****
  580. --- 1619,1625 ----
  581.     print_class_statistics ();
  582.   }
  583.   
  584. + #ifndef atarist
  585.   /* This is used by the `assert' macro.  It is provided in libgcc.a,
  586.      which `cc' doesn't know how to link.  */
  587.   void
  588. ***************
  589. *** 1639,1641 ****
  590. --- 1640,1643 ----
  591.     fflush (stderr);
  592.     abort ();
  593.   }
  594. + #endif
  595. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/cp-xref.c    Fri Jan 17 17:58:44 1992
  596. --- cp-xref.c    Fri Mar  6 15:18:03 1992
  597. ***************
  598. *** 229,235 ****
  599.   
  600.     if (wd_name == NULL)
  601.       {
  602. ! #if defined(USG) || defined(VMS)
  603.         getcwd(wdbuf, sizeof(wdbuf));
  604.   #else
  605.         getwd(wdbuf);
  606. --- 229,235 ----
  607.   
  608.     if (wd_name == NULL)
  609.       {
  610. ! #if defined(USG) || defined(VMS) || defined(CROSSHPUX)
  611.         getcwd(wdbuf, sizeof(wdbuf));
  612.   #else
  613.         getwd(wdbuf);
  614. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/dbxout.c    Fri Feb 21 02:06:52 1992
  615. --- dbxout.c    Fri Mar  6 15:17:58 1992
  616. ***************
  617. *** 107,113 ****
  618.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  619.      the few exceptions to the general rule here.  */
  620.   
  621. ! #if !(defined (USG) || defined (VMS))
  622.   extern char *getwd ();
  623.   #define getcwd(buf,len) getwd(buf)
  624.   #define GUESSPATHLEN (MAXPATHLEN + 1)
  625. --- 107,113 ----
  626.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  627.      the few exceptions to the general rule here.  */
  628.   
  629. ! #if !(defined (USG) || defined (VMS) || defined(CROSSHPUX))
  630.   extern char *getwd ();
  631.   #define getcwd(buf,len) getwd(buf)
  632.   #define GUESSPATHLEN (MAXPATHLEN + 1)
  633. ***************
  634. *** 131,138 ****
  635.   #if defined (USG) || defined (MIPS)
  636.   #include "gstab.h"  /* If doing DBX on sysV, use our own stab.h.  */
  637.   #else
  638.   #include <stab.h>  /* On BSD, use the system's stab.h.  */
  639. ! 
  640.   /* This is a GNU extension we need to reference in this file.  */
  641.   #ifndef N_CATCH
  642.   #define N_CATCH 0x54
  643. --- 131,141 ----
  644.   #if defined (USG) || defined (MIPS)
  645.   #include "gstab.h"  /* If doing DBX on sysV, use our own stab.h.  */
  646.   #else
  647. + #if defined(CROSSATARI) || defined(atarist) || defined(atariminix)
  648. + #include "astab.h"
  649. + #else
  650.   #include <stab.h>  /* On BSD, use the system's stab.h.  */
  651. ! #endif
  652.   /* This is a GNU extension we need to reference in this file.  */
  653.   #ifndef N_CATCH
  654.   #define N_CATCH 0x54
  655. ***************
  656. *** 415,422 ****
  657. --- 418,431 ----
  658.   #ifdef DBX_OUTPUT_MAIN_SOURCE_DIRECTORY
  659.       DBX_OUTPUT_MAIN_SOURCE_DIRECTORY (asmfile, cwd);
  660.   #else /* no DBX_OUTPUT_MAIN_SOURCE_DIRECTORY */
  661. + #ifndef atarist
  662.       fprintf (asmfile, "%s \"%s/\",%d,0,0,%s\n", ASM_STABS_OP,
  663.            cwd, N_SO, <ext_label_name[1]);
  664. + #else
  665. +     fprintf (asmfile, "%s \"", ASM_STABS_OP);
  666. +     atari_output_filename(asmfile, cwd);
  667. +     fprintf (asmfile, "\\\\\",%d,0,0,%s\n", N_SO, <ext_label_name[1]);
  668. + #endif
  669.   #endif /* no DBX_OUTPUT_MAIN_SOURCE_DIRECTORY */
  670.         }
  671.     }
  672. ***************
  673. *** 429,436 ****
  674. --- 438,451 ----
  675.     /* We include outputting `Ltext:' here,
  676.        because that gives you a way to override it.  */
  677.     /* Used to put `Ltext:' before the reference, but that loses on sun 4.  */
  678. + #ifndef atarist
  679.     fprintf (asmfile, "%s \"%s\",%d,0,0,%s\n", ASM_STABS_OP, input_file_name,
  680.          N_SO, <ext_label_name[1]);
  681. + #else
  682. +   fprintf (asmfile, "%s \"", ASM_STABS_OP);
  683. +   atari_output_filename(asmfile, input_file_name);
  684. +   fprintf(asmfile, "\",%d,0,0,%s\n", N_SO, <ext_label_name[1]);
  685. + #endif
  686.     text_section ();
  687.     ASM_OUTPUT_INTERNAL_LABEL (asmfile, "Ltext", 0);
  688.   #endif /* no DBX_OUTPUT_MAIN_SOURCE_FILENAME */
  689. ***************
  690. *** 496,503 ****
  691. --- 511,524 ----
  692.         DBX_OUTPUT_SOURCE_FILENAME (file, filename);
  693.   #else
  694.         ASM_GENERATE_INTERNAL_LABEL (ltext_label_name, "Ltext", 0);
  695. + #ifndef atarist
  696.         fprintf (file, "%s \"%s\",%d,0,0,%s\n", ASM_STABS_OP,
  697.              filename, N_SOL, <ext_label_name[1]);
  698. + #else
  699. +       fprintf (file, "%s \"", ASM_STABS_OP);
  700. +       atari_output_filename(file, filename);
  701. +       fprintf (file, "\",%d,0,0,%s\n", N_SOL, <ext_label_name[1]);
  702. + #endif
  703.   #endif
  704.         lastfile = filename;
  705.       }
  706. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/final.c    Sat Feb  8 18:20:40 1992
  707. --- final.c    Fri Mar  6 15:18:04 1992
  708. ***************
  709. *** 67,74 ****
  710. --- 67,78 ----
  711.   #ifdef USG
  712.   #include "gstab.h"  /* If doing DBX on sysV, use our own stab.h.  */
  713.   #else
  714. + #if defined(CROSSATARI) || defined(atarist) || defined(atariminix)
  715. + #include "astab.h"
  716. + #else
  717.   #include <stab.h>  /* On BSD, use the system's stab.h.  */
  718.   #endif /* not USG */
  719. + #endif /* not atari */
  720.   #endif /* DBX_DEBUGGING_INFO */
  721.   
  722.   /* .stabd code for line number.  */
  723. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/gcc.c    Sat Feb 22 02:09:34 1992
  724. --- gcc.c    Fri Mar  6 15:17:57 1992
  725. ***************
  726. *** 30,35 ****
  727. --- 30,44 ----
  728.   Once it knows which kind of compilation to perform, the procedure for
  729.   compilation is specified by a string called a "spec".  */
  730.   
  731. + #ifdef CROSSATARI
  732. + #ifdef atarist
  733. + #undef atarist
  734. + #endif
  735. + #ifdef atariminix
  736. + #undef atariminix
  737. + #endif
  738. + #endif
  739. +   
  740.   #include <stdio.h>
  741.   #include <sys/types.h>
  742.   #include <ctype.h>
  743. ***************
  744. *** 36,47 ****
  745.   #include <signal.h>
  746.   #include <sys/file.h>
  747.   #include <sys/stat.h>
  748.   
  749.   #include "config.h"
  750.   #include "obstack.h"
  751.   #include "gvarargs.h"
  752.   
  753. ! #ifdef USG
  754.   #ifndef R_OK
  755.   #define R_OK 4
  756.   #define W_OK 2
  757. --- 45,59 ----
  758.   #include <signal.h>
  759.   #include <sys/file.h>
  760.   #include <sys/stat.h>
  761. + #ifdef CROSSATARI
  762. + #include <ctype.h>
  763. + #endif
  764.   
  765.   #include "config.h"
  766.   #include "obstack.h"
  767.   #include "gvarargs.h"
  768.   
  769. ! #if (defined(USG) || defined(atariminix))
  770.   #ifndef R_OK
  771.   #define R_OK 4
  772.   #define W_OK 2
  773. ***************
  774. *** 78,83 ****
  775. --- 90,102 ----
  776.   #endif
  777.   #endif
  778.   
  779. + #ifdef atarist
  780. + #include <osbind.h>
  781. + #include <ctype.h>
  782. + #include <fcntl.h>        /* fgth, for redirection of stderr */
  783. + long _stksize = 8192;
  784. + #endif
  785. + 
  786.   #define obstack_chunk_alloc xmalloc
  787.   #define obstack_chunk_free free
  788.   
  789. ***************
  790. *** 383,388 ****
  791. --- 402,410 ----
  792.           -undef -D__GNUC__=2 %{ansi:-trigraphs -$ -D__STRICT_ANSI__}\
  793.       %{!undef:%{!ansi:%p} %P} %{trigraphs}\
  794.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  795. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  796. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  797. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  798.           %{traditional-cpp:-traditional}\
  799.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  800.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.cpp}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n\
  801. ***************
  802. *** 392,398 ****
  803.              %{traditional} %{v:-version} %{pg:-p} %{p} %{f*}\
  804.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  805.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  806. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  807.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  808.                         %{!pipe:%g.s} %A\n }}}}"},
  809.     {"-",
  810. --- 414,420 ----
  811.              %{traditional} %{v:-version} %{pg:-p} %{p} %{f*}\
  812.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  813.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  814. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  815.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  816.                         %{!pipe:%g.s} %A\n }}}}"},
  817.     {"-",
  818. ***************
  819. *** 402,407 ****
  820. --- 424,432 ----
  821.           -undef -D__GNUC__=2 %{ansi:-trigraphs -$ -D__STRICT_ANSI__}\
  822.       %{!undef:%{!ansi:%p} %P} %{trigraphs}\
  823.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  824. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  825. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  826. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  827.           %{traditional-cpp:-traditional}\
  828.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  829.           %i %W{o*}}\
  830. ***************
  831. *** 414,419 ****
  832. --- 439,447 ----
  833.           -undef -D__OBJC__ -D__GNUC__=2 %{ansi:-trigraphs -$ -D__STRICT_ANSI__}\
  834.       %{!undef:%{!ansi:%p} %P} %{trigraphs}\
  835.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  836. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  837. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  838. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  839.           %{traditional-cpp:-traditional}\
  840.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  841.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.cpp}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n\
  842. ***************
  843. *** 424,430 ****
  844.                  -lang-objc %{gen-decls} \
  845.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  846.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  847. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  848.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  849.                         %{!pipe:%g.s} %A\n }}}}"},
  850.     {".h", "@c-header"},
  851. --- 452,458 ----
  852.                  -lang-objc %{gen-decls} \
  853.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  854.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  855. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  856.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  857.                         %{!pipe:%g.s} %A\n }}}}"},
  858.     {".h", "@c-header"},
  859. ***************
  860. *** 436,441 ****
  861. --- 464,472 ----
  862.           -undef -D__GNUC__=2 %{ansi:-trigraphs -$ -D__STRICT_ANSI__}\
  863.       %{!undef:%{!ansi:%p} %P} %{trigraphs}\
  864.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  865. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  866. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  867. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  868.           %{traditional-cpp:-traditional}\
  869.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  870.           %i %W{o*}"},
  871. ***************
  872. *** 449,454 ****
  873. --- 480,488 ----
  874.       -undef -D__GNUC__=2 -D__GNUG__=2 -D__cplusplus \
  875.       %{ansi:-trigraphs -$ -D__STRICT_ANSI__} %{!undef:%{!ansi:%p} %P}\
  876.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  877. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  878. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  879. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  880.           %{traditional-cpp:-traditional} %{trigraphs}\
  881.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  882.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.cpp}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n\
  883. ***************
  884. *** 458,464 ****
  885.              %{v:-version} %{pg:-p} %{p} %{f*}\
  886.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  887.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  888. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  889.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  890.                         %{!pipe:%g.s} %A\n }}}}"},
  891.     {".i", "@cpp-output"},
  892. --- 492,498 ----
  893.              %{v:-version} %{pg:-p} %{p} %{f*}\
  894.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  895.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  896. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  897.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  898.                         %{!pipe:%g.s} %A\n }}}}"},
  899.     {".i", "@cpp-output"},
  900. ***************
  901. *** 468,474 ****
  902.       %{v:-version} %{pg:-p} %{p} %{f*}\
  903.       %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  904.       %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  905. !     %{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  906.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o} %{!pipe:%g.s} %A\n }"},
  907.     {".ii", "@c++-cpp-output"},
  908.     {"@c++-cpp-output",
  909. --- 502,508 ----
  910.       %{v:-version} %{pg:-p} %{p} %{f*}\
  911.       %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  912.       %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  913. !     %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  914.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o} %{!pipe:%g.s} %A\n }"},
  915.     {".ii", "@c++-cpp-output"},
  916.     {"@c++-cpp-output",
  917. ***************
  918. *** 477,488 ****
  919.           %{v:-version} %{pg:-p} %{p} %{f*}\
  920.           %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  921.           %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  922. !        %{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  923.              %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  924.              %{!pipe:%g.s} %A\n }"},
  925.     {".s", "@assembler"},
  926.     {"@assembler",
  927. !    "%{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  928.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o} %i %A\n }"},
  929.     {".S", "@assembler-with-cpp"},
  930.     {"@assembler-with-cpp",
  931. --- 511,522 ----
  932.           %{v:-version} %{pg:-p} %{p} %{f*}\
  933.           %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  934.           %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  935. !        %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  936.              %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  937.              %{!pipe:%g.s} %A\n }"},
  938.     {".s", "@assembler"},
  939.     {"@assembler",
  940. !    "%{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  941.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o} %i %A\n }"},
  942.     {".S", "@assembler-with-cpp"},
  943.     {"@assembler-with-cpp",
  944. ***************
  945. *** 491,500 ****
  946.       %{M} %{MM} %{MD:-MD %b.d} %{MMD:-MMD %b.d} %{trigraphs} \
  947.           -undef -$ %{!undef:%p %P} -D__ASSEMBLER__ \
  948.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  949.           %{traditional-cpp:-traditional}\
  950.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  951.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.s}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n\
  952. !     %{!M:%{!MM:%{!E:%{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  953.                       %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  954.               %{!pipe:%g.s} %A\n }}}}"},
  955.     /* Mark end of table */
  956. --- 525,537 ----
  957.       %{M} %{MM} %{MD:-MD %b.d} %{MMD:-MMD %b.d} %{trigraphs} \
  958.           -undef -$ %{!undef:%p %P} -D__ASSEMBLER__ \
  959.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  960. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  961. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  962. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  963.           %{traditional-cpp:-traditional}\
  964.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  965.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.s}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n\
  966. !     %{!M:%{!MM:%{!E:%{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  967.                       %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  968.               %{!pipe:%g.s} %A\n }}}}"},
  969.     /* Mark end of table */
  970. ***************
  971. *** 508,513 ****
  972. --- 545,559 ----
  973.   
  974.   /* Here is the spec for running the linker, after compiling all files.  */
  975.   
  976. + #if (defined(CROSSATARI) || defined(atarist) || defined(atariminix))
  977. + static char *link_command_spec = 
  978. +  "%{!c:%{!M*:%{!E:%{!S:ld %{v} %{G} %{o*} %l\
  979. +  %{A} %{d} %{e*} %{N} %{n} %{r} %{s} %{S} %{T*} %{t} %{u*} %{X} %{x} %{z}\
  980. +  %{y*} %{!nostdlib:%S} \
  981. +  %{L*} %o %{!nostdlib:%s %L}\n }}}}";
  982. + 
  983. + #else
  984. + 
  985.   #ifdef LINK_LIBGCC_SPECIAL
  986.   /* Have gcc do the search.  */
  987.   static char *link_command_spec = "\
  988. ***************
  989. *** 523,528 ****
  990. --- 569,575 ----
  991.               %{!A:%{!nostdlib:%S}} \
  992.               %{L*} %D %o %{!nostdlib:-lgcc %L -lgcc %{!A:%E}}\n }}}}}";
  993.   #endif
  994. + #endif
  995.   
  996.   /* A vector of options to give to the linker.
  997.      These options are accumlated by %x
  998. ***************
  999. *** 530,535 ****
  1000. --- 577,583 ----
  1001.   static int n_linker_options;
  1002.   static char **linker_options;
  1003.   
  1004. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  1005.   /* Read compilation specs from a file named FILENAME,
  1006.      replacing the default ones.
  1007.   
  1008. ***************
  1009. *** 667,672 ****
  1010. --- 715,721 ----
  1011.   
  1012.     return p;
  1013.   }
  1014. + #endif /* ataris */
  1015.   
  1016.   /* Structure to keep track of the specs that have been defined so far.  These
  1017.      are accessed using %Sspecname in a compiler or link spec. */
  1018. ***************
  1019. *** 766,771 ****
  1020. --- 815,827 ----
  1021.   /* Name with which this program was invoked.  */
  1022.   
  1023.   static char *programname;
  1024. + 
  1025. + #ifdef atarist
  1026. + /* Flag indicating, that stderr should be redirected for the child
  1027. +    processes */
  1028. + 
  1029. + unsigned char zflag;
  1030. + #endif
  1031.   
  1032.   /* Structures to keep track of prefixes to try when looking for files. */
  1033.   
  1034. ***************
  1035. *** 1011,1019 ****
  1036.   static void
  1037.   choose_temp_base ()
  1038.   {
  1039. -   char *base = getenv ("TMPDIR");
  1040.     int len;
  1041.   
  1042.     if (base == (char *)0)
  1043.       {
  1044.   #ifdef P_tmpdir
  1045. --- 1067,1092 ----
  1046.   static void
  1047.   choose_temp_base ()
  1048.   {
  1049.     int len;
  1050. + #if (!(defined(atarist) || defined(atariminix)))
  1051. +   char *base = getenv ("TMPDIR");
  1052. + #else
  1053. +   char *base = getenv ("TEMP");
  1054.   
  1055. +   if(base == (char *)0)
  1056. +   {
  1057. +       base = getenv("TMPDIR");
  1058. +       if(base == (char *)0)
  1059. +       base = getenv("TMP");
  1060. +   }
  1061. +   if(base != (char *)0)
  1062. +   {
  1063. +       char *newbase = alloca(FILENAME_MAX);
  1064. +       dos2unx(base,newbase);
  1065. +       base = newbase;
  1066. +   }
  1067. + #endif
  1068. + 
  1069.     if (base == (char *)0)
  1070.       {
  1071.   #ifdef P_tmpdir
  1072. ***************
  1073. *** 1032,1038 ****
  1074.     len = strlen (base);
  1075.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  1076.     strcpy (temp_filename, base);
  1077. !   if (len > 0 && temp_filename[len-1] != '/')
  1078.       temp_filename[len++] = '/';
  1079.     strcpy (temp_filename + len, "ccXXXXXX");
  1080.   
  1081. --- 1105,1115 ----
  1082.     len = strlen (base);
  1083.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  1084.     strcpy (temp_filename, base);
  1085. !   if (len > 0 && (temp_filename[len-1] != '/' 
  1086. ! #ifdef atarist
  1087. !           || temp_filename[len-1] != '\\'
  1088. ! #endif
  1089. !            ))
  1090.       temp_filename[len++] = '/';
  1091.     strcpy (temp_filename + len, "ccXXXXXX");
  1092.   
  1093. ***************
  1094. *** 1051,1057 ****
  1095.        int mode;
  1096.   {
  1097.     char *temp;
  1098. !   char *file_suffix = (mode & X_OK != 0 ? EXECUTABLE_SUFFIX : "");
  1099.     struct prefix_list *pl;
  1100.     int len = pprefix->max_len + strlen (name) + strlen (file_suffix) + 1;
  1101.   
  1102. --- 1128,1134 ----
  1103.        int mode;
  1104.   {
  1105.     char *temp;
  1106. !   char *file_suffix = ((mode & X_OK) != 0 ? EXECUTABLE_SUFFIX : "");
  1107.     struct prefix_list *pl;
  1108.     int len = pprefix->max_len + strlen (name) + strlen (file_suffix) + 1;
  1109.   
  1110. ***************
  1111. *** 1273,1278 ****
  1112. --- 1350,1356 ----
  1113.   
  1114.   #else /* not __MSDOS__ */
  1115.   
  1116. + #ifndef atarist
  1117.   static int
  1118.   pexecute (func, program, argv, not_last)
  1119.        char *program;
  1120. ***************
  1121. *** 1360,1365 ****
  1122. --- 1438,1444 ----
  1123.       }
  1124.   }
  1125.   
  1126. + #endif /* not atarist */
  1127.   #endif /* not __MSDOS__ */
  1128.   
  1129.   /* Execute the command specified by the arguments on the current line of spec.
  1130. ***************
  1131. *** 1378,1393 ****
  1132.       {
  1133.         char *prog;        /* program name.  */
  1134.         char **argv;        /* vector of args.  */
  1135.         int pid;            /* pid of process for this command.  */
  1136.       };
  1137.   
  1138.     struct command *commands;    /* each command buffer with above info.  */
  1139.   
  1140.     /* Count # of piped commands.  */
  1141.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1142.       if (strcmp (argbuf[i], "|") == 0)
  1143.         n_commands++;
  1144. ! 
  1145.     /* Get storage for each command.  */
  1146.     commands
  1147.       = (struct command *) alloca (n_commands * sizeof (struct command));
  1148. --- 1457,1477 ----
  1149.       {
  1150.         char *prog;        /* program name.  */
  1151.         char **argv;        /* vector of args.  */
  1152. + #ifndef atarist
  1153.         int pid;            /* pid of process for this command.  */
  1154. + #endif
  1155.       };
  1156.   
  1157.     struct command *commands;    /* each command buffer with above info.  */
  1158.   
  1159. + #ifndef atarist
  1160.     /* Count # of piped commands.  */
  1161.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1162.       if (strcmp (argbuf[i], "|") == 0)
  1163.         n_commands++;
  1164. ! #else
  1165. !   n_commands = 1;
  1166. ! #endif
  1167.     /* Get storage for each command.  */
  1168.     commands
  1169.       = (struct command *) alloca (n_commands * sizeof (struct command));
  1170. ***************
  1171. *** 1402,1407 ****
  1172. --- 1486,1492 ----
  1173.     if (string)
  1174.       commands[0].argv[0] = string;
  1175.   
  1176. + #ifndef atarist
  1177.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1178.       if (strcmp (argbuf[i], "|") == 0)
  1179.         {                /* each command.  */
  1180. ***************
  1181. *** 1416,1421 ****
  1182. --- 1501,1509 ----
  1183.         commands[n_commands].argv[0] = string;
  1184.       n_commands++;
  1185.         }
  1186. + #else
  1187. +   n_commands = 1;
  1188. + #endif
  1189.   
  1190.     argbuf[argbuf_index] = 0;
  1191.   
  1192. ***************
  1193. *** 1431,1439 ****
  1194. --- 1519,1529 ----
  1195.         for (j = commands[i].argv; *j; j++)
  1196.           fprintf (stderr, " %s", *j);
  1197.   
  1198. + #ifndef atarist
  1199.         /* Print a pipe symbol after all but the last command.  */
  1200.         if (i + 1 != n_commands)
  1201.           fprintf (stderr, " |");
  1202. + #endif
  1203.         fprintf (stderr, "\n");
  1204.       }
  1205.         fflush (stderr);
  1206. ***************
  1207. *** 1448,1458 ****
  1208. --- 1538,1550 ----
  1209.   #endif /* DEBUG */
  1210.       }
  1211.   
  1212. + #ifndef atarist
  1213.     /* Run each piped subprocess.  */
  1214.   
  1215.     last_pipe_input = STDIN_FILE_NO;
  1216.     for (i = 0; i < n_commands; i++)
  1217.       {
  1218. + #ifndef atariminix
  1219.         char *string = commands[i].argv[0];
  1220.   
  1221.         commands[i].pid = pexecute ((string != commands[i].prog ? execv : execvp),
  1222. ***************
  1223. *** 1459,1464 ****
  1224. --- 1551,1564 ----
  1225.                     string, commands[i].argv,
  1226.                     i + 1 < n_commands);
  1227.   
  1228. + #else
  1229. +       extern int execv();
  1230. +       char *string = commands[i].argv[0];
  1231. + 
  1232. +       commands[i].pid = pexecute (execv,
  1233. +                   string, commands[i].argv,
  1234. +                   i + 1 < n_commands);
  1235. + #endif
  1236.         if (string != commands[i].prog)
  1237.       free (string);
  1238.       }
  1239. ***************
  1240. *** 1502,1507 ****
  1241. --- 1602,1652 ----
  1242.         }
  1243.       return ret_code;
  1244.     }
  1245. + #else /* atarist */
  1246. +  {
  1247. +      register int iii;
  1248. +      int errfd, oldfd;
  1249. +      char **j;
  1250. + 
  1251. +      execution_count++;
  1252. + 
  1253. +      if (zflag)
  1254. +        {
  1255. +      errfd = Fopen("compile.err", 2);
  1256. +      if (errfd < __SMALLEST_VALID_HANDLE)
  1257. +        errfd = Fcreate("compile.err", 0);
  1258. +      else
  1259. +        Fseek(0L, errfd, 2);
  1260. +      if (errfd >= __SMALLEST_VALID_HANDLE)
  1261. +        {
  1262. +          oldfd = Fdup (2);
  1263. +          Fforce(2, errfd);
  1264. +        }
  1265. +      else
  1266. +        {
  1267. +          error("cannot open %s", "compile.err");
  1268. +          zflag = 0;        /* no redirection */
  1269. +        }
  1270. +        }
  1271. +      for (i = 0; i < n_commands ; i++)
  1272. +      {
  1273. +          j = commands[i].argv;
  1274. +          iii = spawnve(0, j[0], j, NULL);
  1275. +      if(iii != 0)
  1276. +          break;
  1277. +      }
  1278. +      if (zflag)
  1279. +        {
  1280. +      Fforce(2, oldfd);
  1281. +      Fclose(oldfd);
  1282. +      Fclose(errfd);
  1283. +        }
  1284. +      if (iii != 0)
  1285. +        return -1;
  1286. +      else
  1287. +        return 0;
  1288. +  }
  1289. + #endif /* atarist */  
  1290.   }
  1291.   
  1292.   /* Find all the switches given to us
  1293. ***************
  1294. *** 1770,1775 ****
  1295. --- 1915,1926 ----
  1296.             save_temps_flag = 1;
  1297.             break;
  1298.           }
  1299. + #ifdef atarist
  1300. +         case 'z':    /* redirect stderr to a file */
  1301. +           zflag++;
  1302. +           n_switches++;
  1303. +           break;
  1304. + #endif
  1305.           default:
  1306.             n_switches++;
  1307.   
  1308. ***************
  1309. *** 1941,1946 ****
  1310. --- 2092,2106 ----
  1311.      search dirs for it.  */
  1312.   static int this_is_library_file;
  1313.   
  1314. + #ifdef atarist
  1315. + /* I don't know why this is necessary.  Recursive calls to do_spec_1
  1316. +    end up ignoring the error code from calls to execute().  That causes
  1317. +    do_spec to get a 0 return value, and do_spec_1("\n"), which causes the
  1318. +    command to get executed again.
  1319. + */
  1320. + int execute_return_error = 0;
  1321. + #endif
  1322. + 
  1323.   /* Process the spec SPEC and run the commands specified therein.
  1324.      Returns 0 if the spec is successfully processed; -1 if failed.  */
  1325.   
  1326. ***************
  1327. *** 1960,1969 ****
  1328. --- 2120,2138 ----
  1329.   
  1330.     /* Force out any unfinished command.
  1331.        If -pipe, this forces out the last command if it ended in `|'.  */
  1332. + #ifdef atarist
  1333. +   if (!value && execute_return_error)
  1334. +     {
  1335. +     value = execute_return_error;
  1336. +     execute_return_error = 0;
  1337. +     }
  1338. + #endif
  1339.     if (value == 0)
  1340.       {
  1341. + #ifndef atarist
  1342.         if (argbuf_index > 0 && !strcmp (argbuf[argbuf_index - 1], "|"))
  1343.       argbuf_index--;
  1344. + #endif
  1345.   
  1346.         if (argbuf_index > 0)
  1347.       value = execute ();
  1348. ***************
  1349. *** 2000,2005 ****
  1350. --- 2169,2225 ----
  1351.          Otherwise, NL, SPC, TAB and % are special.  */
  1352.       switch (inswitch ? 'a' : c)
  1353.         {
  1354. + #if (defined(atarist) || defined(CROSSATARI))
  1355. + /* this stuff added by jrd.  if see '$', expect name of env var, delimited
  1356. +    by '$'.  Find it's value, and subst it in.
  1357. + 
  1358. +    modified by ERS to only collect things that look like names; this
  1359. +    saves e.g. the -$ arg. to cpp from getting munged */
  1360. + 
  1361. +       case '$':
  1362. +       {
  1363. +     char varname[32];        /* should be enough */
  1364. +     char * value;            /* deciphered value string */
  1365. +     char *temp;
  1366. +     int i;
  1367. +     extern char *getenv(), *index();
  1368. +     
  1369. +     for (i = 0 ; ((c = *p) != '$') && isalnum(c) && i < 31 ; i++, p++)
  1370. +         varname[i] = c;
  1371. +     varname[i] = '\0';
  1372. +     if (strlen(varname) > 0) /* ++jrb fix */
  1373. +     {
  1374. +                  ++p;    /* skip trailing '$' */
  1375. +         value = getenv(varname); /* ++jrb fix */
  1376. +         if (value)
  1377. +         { /* if value is a path, only consider 1'st component */
  1378. + #ifdef atarist
  1379. +             if((temp = index(value, ',')) == NULL)
  1380. +                 temp = index(value, ';');
  1381. + #else
  1382. +             temp = index(value, ':');
  1383. + #endif
  1384. +             if(temp != NULL)
  1385. +             {
  1386. +                 char *t = (char *) alloca(strlen(value) + 1);
  1387. +                 strcpy(t, value);
  1388. +                 t[temp-value] = '\0';
  1389. +                 do_spec_1(t, 0);
  1390. +             }
  1391. +             else
  1392. +                 do_spec_1(value, 0);
  1393. +         }
  1394. +             else
  1395. +             do_spec_1(".", 0);    /* a compleat kludge... */
  1396. +     }
  1397. +         else
  1398. +         {
  1399. +              obstack_1grow(&obstack, '$');
  1400. +              arg_going = 1;
  1401. +         }
  1402. +       }
  1403. +      break;
  1404. + #endif /* atarist */
  1405.         case '\n':
  1406.       /* End of line: finish any pending argument,
  1407.          then run the pending command if one has been started.  */
  1408. ***************
  1409. *** 2037,2042 ****
  1410. --- 2257,2266 ----
  1411.       if (argbuf_index > 0)
  1412.         {
  1413.           int value = execute ();
  1414. + #ifdef atarist
  1415. +         if (!execute_return_error)
  1416. +             execute_return_error = value;
  1417. + #endif
  1418.           if (value)
  1419.             return value;
  1420.         }
  1421. ***************
  1422. *** 2521,2533 ****
  1423. --- 2745,2765 ----
  1424.           break;
  1425.   
  1426.         default:
  1427. + #if 1 /* atarist */
  1428. +         fprintf(stderr, "Bogus char '%c' found at pos %d of spec '%s'\n",
  1429. +         c, (p - spec - 1), spec);
  1430. + #endif
  1431.           abort ();
  1432.         }
  1433.       break;
  1434.   
  1435. + #ifndef atarist
  1436. +       /* on the atari it is important to preserve backslash in spec */
  1437. +       /* so just let it go into default case */
  1438.         case '\\':
  1439.       /* Backslash: treat next character as ordinary.  */
  1440.       c = *p++;
  1441. + #endif
  1442.   
  1443.       /* fall through */
  1444.         default:
  1445. ***************
  1446. *** 2794,2799 ****
  1447. --- 3026,3032 ----
  1448.   
  1449.   /* On fatal signals, delete all the temporary files.  */
  1450.   
  1451. + #ifndef atarist
  1452.   static void
  1453.   fatal_error (signum)
  1454.        int signum;
  1455. ***************
  1456. *** 2805,2810 ****
  1457. --- 3038,3044 ----
  1458.        so its normal effect occurs.  */
  1459.     kill (getpid (), signum);
  1460.   }
  1461. + #endif
  1462.   
  1463.   int
  1464.   main (argc, argv)
  1465. ***************
  1466. *** 2818,2823 ****
  1467. --- 3052,3062 ----
  1468.     char *explicit_link_files;
  1469.     char *specs_file;
  1470.   
  1471. + #ifdef atarist
  1472. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  1473. + /*  _malloczero(1); */     /* zero mallocs by default */
  1474. +   programname = "gcc";
  1475. + #else  
  1476.     programname = argv[0];
  1477.   
  1478.     if (signal (SIGINT, SIG_IGN) != SIG_IGN)
  1479. ***************
  1480. *** 2830,2835 ****
  1481. --- 3069,3075 ----
  1482.     if (signal (SIGPIPE, SIG_IGN) != SIG_IGN)
  1483.       signal (SIGPIPE, fatal_error);
  1484.   #endif
  1485. + #endif /* atarist */
  1486.   
  1487.     argbuf_length = 10;
  1488.     argbuf = (char **) xmalloc (argbuf_length * sizeof (char *));
  1489. ***************
  1490. *** 2846,2851 ****
  1491. --- 3086,3100 ----
  1492.   
  1493.     process_command (argc, argv);
  1494.   
  1495. + #if (defined(atarist) || defined(CROSSATARI))
  1496. +   {
  1497. +     char *temp;
  1498. +     
  1499. +     if((temp = getenv ("GCCEXEC")))
  1500. +     add_prefix (&exec_prefix, temp, 0, 0, 0);
  1501. +   }
  1502. + #endif
  1503. +   
  1504.     /* Initialize the vector of specs to just the default.
  1505.        This means one element containing 0s, as a terminator.  */
  1506.   
  1507. ***************
  1508. *** 2853,2858 ****
  1509. --- 3102,3111 ----
  1510.     bcopy (default_compilers, compilers, sizeof default_compilers);
  1511.     n_compilers = n_default_compilers;
  1512.   
  1513. + 
  1514. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1515. +   specs_file = 0;
  1516. + #else
  1517.     /* Read specs from a file if there is one.  */
  1518.   
  1519.     machine_suffix = concat (spec_machine, "/", concat (spec_version, "/", ""));
  1520. ***************
  1521. *** 2861,2866 ****
  1522. --- 3114,3120 ----
  1523.     /* Read the specs file unless it is a default one.  */
  1524.     if (specs_file != 0 && strcmp (specs_file, "specs"))
  1525.       read_specs (specs_file);
  1526. + #endif
  1527.   
  1528.     /* Now we have the specs.
  1529.        Set the `valid' bits for switches that match anything in any spec.  */
  1530. ***************
  1531. *** 2877,2883 ****
  1532. --- 3131,3143 ----
  1533.   
  1534.     if (verbose_flag)
  1535.       {
  1536. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1537. + #include "PatchLev.h"
  1538. +       fprintf (stderr, "gcc-atariST version %s Patchlevel %s\n",
  1539. +            version_string, PatchLevel);
  1540. + #else
  1541.         fprintf (stderr, "gcc version %s\n", version_string);
  1542. + #endif
  1543.         if (n_infiles == 0)
  1544.       exit (0);
  1545.       }
  1546. ***************
  1547. *** 2924,2930 ****
  1548. --- 3184,3195 ----
  1549.   
  1550.         input_basename = input_filename;
  1551.         for (p = input_filename; *p; p++)
  1552. + #ifdef atarist
  1553. +         if (((*p == '/') || (*p == '\\')) && (*(p-1) != ':'))
  1554. +             /* allow both '\' and '/' with  our new lib */
  1555. + #else
  1556.           if (*p == '/')
  1557. + #endif
  1558.             input_basename = p + 1;
  1559.   
  1560.         /* Find a suffix starting with the last period,
  1561. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/libgcc1.c    Fri Feb 14 22:39:14 1992
  1562. --- libgcc1.c    Fri Mar  6 15:17:56 1992
  1563. ***************
  1564. *** 201,207 ****
  1565.   #endif
  1566.   
  1567.   #ifndef perform_lesf2
  1568. ! #define perform_lesf2(a, b) return 1 - (a >= b);
  1569.   #endif
  1570.   
  1571.   /* Define the C data type to use for an SImode value.  */
  1572. --- 201,207 ----
  1573.   #endif
  1574.   
  1575.   #ifndef perform_lesf2
  1576. ! #define perform_lesf2(a, b) return 1 - (a <= b);
  1577.   #endif
  1578.   
  1579.   /* Define the C data type to use for an SImode value.  */
  1580. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/protoize.c    Tue Feb 18 15:42:08 1992
  1581. --- protoize.c    Fri Mar  6 15:18:02 1992
  1582. ***************
  1583. *** 150,156 ****
  1584.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  1585.      the few exceptions to the general rule here.  */
  1586.   
  1587. ! #if !(defined (USG) || defined (VMS))
  1588.   extern char *getwd ();
  1589.   #define getcwd(buf,len) getwd(buf)
  1590.   #else /* (defined (USG) || defined (VMS)) */
  1591. --- 150,156 ----
  1592.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  1593.      the few exceptions to the general rule here.  */
  1594.   
  1595. ! #if !(defined (USG) || defined (VMS) || defined(CROSSHPUX))
  1596.   extern char *getwd ();
  1597.   #define getcwd(buf,len) getwd(buf)
  1598.   #else /* (defined (USG) || defined (VMS)) */
  1599. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/toplev.c    Tue Feb 18 20:07:07 1992
  1600. --- toplev.c    Fri Mar  6 15:17:59 1992
  1601. ***************
  1602. *** 31,37 ****
  1603.   
  1604.   #include <sys/stat.h>
  1605.   
  1606. ! #ifdef USG
  1607.   #undef FLOAT
  1608.   #include <sys/param.h>
  1609.   /* This is for hpux.  It is a real screw.  They should change hpux.  */
  1610. --- 31,37 ----
  1611.   
  1612.   #include <sys/stat.h>
  1613.   
  1614. ! #if defined(USG) || defined(CROSSHPUX)
  1615.   #undef FLOAT
  1616.   #include <sys/param.h>
  1617.   /* This is for hpux.  It is a real screw.  They should change hpux.  */
  1618. ***************
  1619. *** 41,51 ****
  1620. --- 41,59 ----
  1621.   #undef FFS  /* Some systems define this in param.h.  */
  1622.   #else
  1623.   #ifndef VMS
  1624. + #if (!(defined(atarist) || defined(atariminix)))
  1625.   #include <sys/time.h>
  1626.   #include <sys/resource.h>
  1627. + #endif /* !(atarist || atariminix) */
  1628.   #endif
  1629.   #endif
  1630.   
  1631. + #ifdef atariminix
  1632. + #include <sys/times.h>
  1633. + /* #include <minix/const.h>, avoid dragging this in */
  1634. + #define HZ 60    /* this is the only thing needed from minix/const.h */
  1635. + #endif
  1636. + 
  1637.   #include "input.h"
  1638.   #include "tree.h"
  1639.   /* #include "c-tree.h" */
  1640. ***************
  1641. *** 52,57 ****
  1642. --- 60,74 ----
  1643.   #include "rtl.h"
  1644.   #include "flags.h"
  1645.   #include "insn-attr.h"
  1646. + 
  1647. + #ifdef atarist
  1648. + long _stksize = -1L;    /* for all sizes of ST's */
  1649. +     /* -1 means malloc from own heap and keep all  of memory */
  1650. + #endif /* atarist */
  1651. + 
  1652. + #if (defined(atarist) || defined(atariminix))
  1653. + #include "astab.h"    /* need this for ASM_OUTPUT_SOURCE_FILENAME */
  1654. + #endif
  1655.   
  1656.   #ifdef VMS
  1657.   /* The extra parameters substantially improve the I/O performance.  */
  1658. ***************
  1659. *** 578,584 ****
  1660.   int
  1661.   get_run_time ()
  1662.   {
  1663. ! #ifdef USG
  1664.     struct tms tms;
  1665.   #else
  1666.   #ifndef VMS
  1667. --- 595,604 ----
  1668.   int
  1669.   get_run_time ()
  1670.   {
  1671. ! #ifdef atarist
  1672. !   long now;
  1673. ! #else
  1674. ! #if (defined(USG) || defined(atariminix) || defined(CROSSHPUX))
  1675.     struct tms tms;
  1676.   #else
  1677.   #ifndef VMS
  1678. ***************
  1679. *** 593,603 ****
  1680.       } vms_times;
  1681.   #endif
  1682.   #endif
  1683.   
  1684.     if (quiet_flag)
  1685.       return 0;
  1686.   
  1687. ! #ifdef USG
  1688.     times (&tms);
  1689.     return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ);
  1690.   #else
  1691. --- 613,627 ----
  1692.       } vms_times;
  1693.   #endif
  1694.   #endif
  1695. + #endif
  1696.   
  1697.     if (quiet_flag)
  1698.       return 0;
  1699.   
  1700. ! #ifdef atarist
  1701. !   return(time(NULL) * 1000000);
  1702. ! #else
  1703. ! #if (defined(USG) || defined(atariminix) || defined(CROSSHPUX))
  1704.     times (&tms);
  1705.     return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ);
  1706.   #else
  1707. ***************
  1708. *** 610,615 ****
  1709. --- 634,640 ----
  1710.     return (vms_times.proc_user_time + vms_times.proc_system_time) * 10000;
  1711.   #endif
  1712.   #endif
  1713. + #endif
  1714.   }
  1715.   
  1716.   #define TIMEVAR(VAR, BODY)    \
  1717. ***************
  1718. *** 1212,1217 ****
  1719. --- 1237,1243 ----
  1720.     longjmp (float_handler, 1);
  1721.   }
  1722.   
  1723. + #ifndef atarist
  1724.   /* Handler for SIGPIPE.  */
  1725.   
  1726.   static void
  1727. ***************
  1728. *** 1221,1226 ****
  1729. --- 1247,1253 ----
  1730.   {
  1731.     fatal ("output pipe has been closed");
  1732.   }
  1733. + #endif
  1734.   
  1735.   /* Strip off a legitimate source ending from the input string NAME of
  1736.      length LEN. */
  1737. ***************
  1738. *** 1372,1378 ****
  1739. --- 1399,1409 ----
  1740.       {
  1741.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1742.         strcpy (dumpname, dump_base_name);
  1743. + #ifndef atarist
  1744.         strcat (dumpname, ".jump");
  1745. + #else
  1746. +       strcat (dumpname, ".jmp");
  1747. + #endif
  1748.         jump_opt_dump_file = fopen (dumpname, "w");
  1749.         if (jump_opt_dump_file == 0)
  1750.       pfatal_with_name (dumpname);
  1751. ***************
  1752. *** 1394,1400 ****
  1753. --- 1425,1435 ----
  1754.       {
  1755.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1756.         strcpy (dumpname, dump_base_name);
  1757. + #ifndef atarist
  1758.         strcat (dumpname, ".loop");
  1759. + #else
  1760. +       strcat (dumpname, ".lop");
  1761. + #endif
  1762.         loop_dump_file = fopen (dumpname, "w");
  1763.         if (loop_dump_file == 0)
  1764.       pfatal_with_name (dumpname);
  1765. ***************
  1766. *** 1405,1411 ****
  1767. --- 1440,1450 ----
  1768.       {
  1769.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1770.         strcpy (dumpname, dump_base_name);
  1771. + #ifndef atarist
  1772.         strcat (dumpname, ".cse2");
  1773. + #else
  1774. +       strcat (dumpname, ".cs2");
  1775. + #endif
  1776.         cse2_dump_file = fopen (dumpname, "w");
  1777.         if (cse2_dump_file == 0)
  1778.       pfatal_with_name (dumpname);
  1779. ***************
  1780. *** 1416,1422 ****
  1781. --- 1455,1465 ----
  1782.       {
  1783.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1784.         strcpy (dumpname, dump_base_name);
  1785. + #ifndef atarist
  1786.         strcat (dumpname, ".flow");
  1787. + #else
  1788. +       strcat (dumpname, ".flo");
  1789. + #endif
  1790.         flow_dump_file = fopen (dumpname, "w");
  1791.         if (flow_dump_file == 0)
  1792.       pfatal_with_name (dumpname);
  1793. ***************
  1794. *** 1427,1433 ****
  1795. --- 1470,1480 ----
  1796.       {
  1797.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 10);
  1798.         strcpy (dumpname, dump_base_name);
  1799. + #ifndef atarist
  1800.         strcat (dumpname, ".combine");
  1801. + #else
  1802. +       strcat (dumpname, ".cmb");
  1803. + #endif
  1804.         combine_dump_file = fopen (dumpname, "w");
  1805.         if (combine_dump_file == 0)
  1806.       pfatal_with_name (dumpname);
  1807. ***************
  1808. *** 1438,1444 ****
  1809. --- 1485,1495 ----
  1810.       {
  1811.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 7);
  1812.         strcpy (dumpname, dump_base_name);
  1813. + #ifndef atarist
  1814.         strcat (dumpname, ".sched");
  1815. + #else
  1816. +       strcat (dumpname, ".sch");
  1817. + #endif
  1818.         sched_dump_file = fopen (dumpname, "w");
  1819.         if (sched_dump_file == 0)
  1820.       pfatal_with_name (dumpname);
  1821. ***************
  1822. *** 1449,1455 ****
  1823. --- 1500,1510 ----
  1824.       {
  1825.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1826.         strcpy (dumpname, dump_base_name);
  1827. + #ifndef atarist
  1828.         strcat (dumpname, ".lreg");
  1829. + #else
  1830. +       strcat (dumpname, ".lrg");
  1831. + #endif
  1832.         local_reg_dump_file = fopen (dumpname, "w");
  1833.         if (local_reg_dump_file == 0)
  1834.       pfatal_with_name (dumpname);
  1835. ***************
  1836. *** 1460,1466 ****
  1837. --- 1515,1525 ----
  1838.       {
  1839.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1840.         strcpy (dumpname, dump_base_name);
  1841. + #ifndef atarist
  1842.         strcat (dumpname, ".greg");
  1843. + #else
  1844. +       strcat (dumpname, ".grg");
  1845. + #endif
  1846.         global_reg_dump_file = fopen (dumpname, "w");
  1847.         if (global_reg_dump_file == 0)
  1848.       pfatal_with_name (dumpname);
  1849. ***************
  1850. *** 1471,1477 ****
  1851. --- 1530,1540 ----
  1852.       {
  1853.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 8);
  1854.         strcpy (dumpname, dump_base_name);
  1855. + #ifndef atarist
  1856.         strcat (dumpname, ".sched2");
  1857. + #else
  1858. +       strcat (dumpname, ".sc2");
  1859. + #endif
  1860.         sched2_dump_file = fopen (dumpname, "w");
  1861.         if (sched2_dump_file == 0)
  1862.       pfatal_with_name (dumpname);
  1863. ***************
  1864. *** 1482,1488 ****
  1865. --- 1545,1555 ----
  1866.       {
  1867.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 7);
  1868.         strcpy (dumpname, dump_base_name);
  1869. + #ifndef atarist
  1870.         strcat (dumpname, ".jump2");
  1871. + #else
  1872. +       strcat (dumpname, ".jp2");
  1873. + #endif
  1874.         jump2_opt_dump_file = fopen (dumpname, "w");
  1875.         if (jump2_opt_dump_file == 0)
  1876.       pfatal_with_name (dumpname);
  1877. ***************
  1878. *** 1506,1512 ****
  1879. --- 1573,1583 ----
  1880.       {
  1881.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 10);
  1882.         strcpy (dumpname, dump_base_name);
  1883. + #ifndef atarist
  1884.         strcat (dumpname, ".stack");
  1885. + #else
  1886. +       strcat (dumpname, ".stk");
  1887. + #endif
  1888.         stack_reg_dump_file = fopen (dumpname, "w");
  1889.         if (stack_reg_dump_file == 0)
  1890.       pfatal_with_name (dumpname);
  1891. ***************
  1892. *** 2484,2495 ****
  1893. --- 2555,2576 ----
  1894.     int version_flag = 0;
  1895.     char *p;
  1896.   
  1897. + #ifdef atarist
  1898. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  1899. + /*  _malloczero(1); */     /* zero mallocs by default */
  1900. + #endif  
  1901. + 
  1902.     /* save in case md file wants to emit args as a comment.  */
  1903.     save_argc = argc;
  1904.     save_argv = argv;
  1905.   
  1906.     p = argv[0] + strlen (argv[0]);
  1907. + #ifndef atarist
  1908.     while (p != argv[0] && p[-1] != '/') --p;
  1909. + #else
  1910. +   while (p != argv[0] && ( ((p[-1] != '/') || (p[-1] != '\\')) &&
  1911. +               (p[-2] != ':') ) ) --p;
  1912. + #endif
  1913.     progname = p;
  1914.   
  1915.   #ifdef RLIMIT_STACK
  1916. ***************
  1917. *** 2506,2512 ****
  1918. --- 2587,2595 ----
  1919.   
  1920.     signal (SIGFPE, float_signal);
  1921.   
  1922. + #ifndef atarist
  1923.     signal (SIGPIPE, pipe_closed);
  1924. + #endif
  1925.   
  1926.     decl_printable_name = decl_name;
  1927.     lang_expand_expr = (struct rtx_def *(*)()) do_abort;
  1928. ***************
  1929. *** 2589,2595 ****
  1930. --- 2672,2688 ----
  1931.         else if (!strcmp (str, "dumpbase"))
  1932.           {
  1933.             dump_base_name = argv[++i];
  1934. + #ifdef atarist
  1935. + /* dump_base_name will typically be 'foo.c' here.  Need to truncate at the '.',
  1936. +    cause dots mean something here */
  1937. +         {
  1938. +           char * n = dump_base_name;
  1939. +           for ( ; ((*n) && (*n != '.')) ; )
  1940. +         n++;
  1941. +           *n = '\0';
  1942.           }
  1943. + #endif
  1944. +         }
  1945.         else if (str[0] == 'd')
  1946.           {
  1947.             register char *p = &str[1];
  1948. ***************
  1949. *** 2932,2938 ****
  1950. --- 3025,3037 ----
  1951.        option flags in use.  */
  1952.     if (version_flag)
  1953.       {
  1954. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1955. + #include "PatchLev.h"
  1956. +         fprintf (stderr, "%s version %s-atariST Patchlevel %s",
  1957. +          language_string, version_string, PatchLevel);
  1958. + #else
  1959.         fprintf (stderr, "%s version %s", language_string, version_string);
  1960. + #endif
  1961.   #ifdef TARGET_VERSION
  1962.         TARGET_VERSION;
  1963.   #endif
  1964. ***************
  1965. *** 2953,2958 ****
  1966. --- 3052,3059 ----
  1967.   
  1968.     compile_file (filename);
  1969.   
  1970. + #if (!(defined(atarist) || defined(atariminix)))
  1971. + #if (!(defined(CROSSHPUX)))
  1972.   #ifndef VMS
  1973.     if (flag_print_mem)
  1974.       {
  1975. ***************
  1976. *** 2969,2974 ****
  1977. --- 3070,3077 ----
  1978.   #endif /* not USG */
  1979.       }
  1980.   #endif /* not VMS */
  1981. + #endif
  1982. + #endif
  1983.   
  1984.     if (errorcount)
  1985.       exit (FATAL_EXIT_CODE);
  1986. ***************
  1987. *** 3080,3082 ****
  1988. --- 3183,3216 ----
  1989.   
  1990.     fprintf (stderr, "\n");
  1991.   }
  1992. + 
  1993. + #ifdef atarist
  1994. + void atari_output_filename(file, filename)
  1995. + FILE *file;
  1996. + char *filename;
  1997. + {
  1998. +     if( (!file) || (!filename) ) return;
  1999. +     for(; *filename; filename++)
  2000. +     {
  2001. +     if(*filename == '\\') putc('\\', file);
  2002. +     putc(*filename, file);
  2003. +     }
  2004. + }
  2005. + 
  2006. + #include <string.h>
  2007. + 
  2008. + char *atari_filename_nondirectory(p)
  2009. + char *p;
  2010. + {
  2011. +     char *s;
  2012. +     
  2013. +     for(s = p + strlen(p); s != p; --s)
  2014. +     {
  2015. +     if((*s == '/') || (*s == '\\'))
  2016. +         break;
  2017. +     }
  2018. +     
  2019. +     return (s == p) ? p : s+1;
  2020. + }
  2021. + 
  2022. + #endif
  2023. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/cp-parse.y    Sat Feb 22 03:35:51 1992
  2024. --- cp-parse.y    Fri Mar  6 15:18:09 1992
  2025. ***************
  2026. *** 1075,1081 ****
  2027.               }
  2028.             $$ = build_delete (type, expr, integer_three_node,
  2029.                        LOOKUP_NORMAL|LOOKUP_HAS_IN_CHARGE,
  2030. !                      TYPE_HAS_DESTRUCTOR (TREE_TYPE (type)) ? $$ : 0, 1);
  2031.           }
  2032.       | delete '[' ']' cast_expr  %prec UNARY
  2033.           {
  2034. --- 1075,1082 ----
  2035.               }
  2036.             $$ = build_delete (type, expr, integer_three_node,
  2037.                        LOOKUP_NORMAL|LOOKUP_HAS_IN_CHARGE,
  2038. !                      TYPE_HAS_DESTRUCTOR (TREE_TYPE (type)) ? $$ : 0,
  2039. !                      0); /*miron@cs.sfu.ca*/
  2040.           }
  2041.       | delete '[' ']' cast_expr  %prec UNARY
  2042.           {
  2043. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/fixinc.svr4    Tue Feb 11 22:11:45 1992
  2044. --- fixinc.svr4    Fri Mar  6 15:17:54 1992
  2045. ***************
  2046. *** 155,176 ****
  2047.           s/#machine(\([^)]*\))/defined(__\1__)/g
  2048.           s/#system(\([^)]*\))/defined(__\1__)/g
  2049.           s/#cpu(\([^)]*\))/defined(__\1__)/g
  2050. !       /#[a-z]*if.*[ (]m68k/        s/m68k/__m68k__/g
  2051. !       /#[a-z]*if.*[ (]__i386/    s/__i386/__i386__/g
  2052. !       /#[a-z]*if.*[ (]i386/        s/i386/__i386__/g
  2053. !       /#[a-z]*if.*[ (]sparc/    s/sparc/__sparc__/g
  2054. !       /#[a-z]*if.*[ (]mc68000/    s/mc68000/__mc68000__/g
  2055. !       /#[a-z]*if.*[ (]vax/        s/vax/__vax__/g
  2056. !       /#[a-z]*if.*[ (]sun3x/    s/sun3x/__sun3x__/g
  2057. !       /#[a-z]*if.*[ (]sun3/        s/sun3/__sun3__/g
  2058. !       /#[a-z]*if.*[ (]sun2/        s/sun2/__sun2__/g
  2059. !       /#[a-z]*if.*[ (]sun4c/    s/sun4c/__sun4c__/g
  2060. !       /#[a-z]*if.*[ (]sun4/        s/sun4/__sun4__/g
  2061. !       /#[a-z]*if.*[ (]sun/        s/sun/__sun__/g
  2062. !       /#[a-z]*if.*[ (]ns32000/    s/ns32000/__ns32000__/g
  2063. !       /#[a-z]*if.*[ (]pyr/        s/pyr/__pyr__/g
  2064. !       /#[a-z]*if.*[ (]is68k/    s/is68k/__is68k__/g
  2065. !       /#[a-z]*if.*[ (]sun386/    s/sun386/__sun386__/g
  2066.         s/u_char\([     ][     ]*[a-zA-Z0-9_][a-zA-Z0-9_]*[     ]*:[     ]*[0-9][0-9]*\)/u_int\1/
  2067.         s/u_short\([     ][     ]*[a-zA-Z0-9_][a-zA-Z0-9_]*[     ]*:[     ]*[0-9][0-9]*\)/u_int\1/
  2068.         s/ushort\([     ][     ]*[a-zA-Z0-9_][a-zA-Z0-9_]*[     ]*:[     ]*[0-9][0-9]*\)/u_int\1/
  2069. --- 155,171 ----
  2070.           s/#machine(\([^)]*\))/defined(__\1__)/g
  2071.           s/#system(\([^)]*\))/defined(__\1__)/g
  2072.           s/#cpu(\([^)]*\))/defined(__\1__)/g
  2073. !       /#[a-z]*if.*[     (]m68k/        s/m68k/__m68k__/g
  2074. !       /#[a-z]*if.*[     (]__i386/    s/__i386/__i386__/g
  2075. !       /#[a-z]*if.*[     (]i386/        s/i386/__i386__/g
  2076. !       /#[a-z]*if.*[     (]sparc/    s/sparc/__sparc__/g
  2077. !       /#[a-z]*if.*[     (]mc68000/    s/mc68000/__mc68000__/g
  2078. !       /#[a-z]*if.*[     (]vax/        s/vax/__vax__/g
  2079. !       /#[a-z]*if.*[     (]ns32000/    s/ns32000/__ns32000__/g
  2080. !       /#[a-z]*if.*[     (]pyr/        s/pyr/__pyr__/g
  2081. !       /#[a-z]*if.*[     (]is68k/    s/is68k/__is68k__/g
  2082. !       /#[a-z]*if.*[     (]sun/        s/sun[234]?[cx8]?[6]?/__&__/g
  2083. !       /#[a-z]*if.*[     (]sun/        s/sun[234]\{0,1\}[cx8]\{0,1\}[6]\{0,1\}/__&__/g
  2084.         s/u_char\([     ][     ]*[a-zA-Z0-9_][a-zA-Z0-9_]*[     ]*:[     ]*[0-9][0-9]*\)/u_int\1/
  2085.         s/u_short\([     ][     ]*[a-zA-Z0-9_][a-zA-Z0-9_]*[     ]*:[     ]*[0-9][0-9]*\)/u_int\1/
  2086.         s/ushort\([     ][     ]*[a-zA-Z0-9_][a-zA-Z0-9_]*[     ]*:[     ]*[0-9][0-9]*\)/u_int\1/
  2087. *** /net/acae127/home/bammi/etc/src/gnu/gcc-2.0/fixincludes    Sun Feb 16 22:43:11 1992
  2088. --- fixincludes    Fri Mar  6 15:17:55 1992
  2089. ***************
  2090. *** 132,153 ****
  2091.         /#define.CTRL/        s/'\''c'\''/c/g
  2092.         /#define._CTRL/        s/'\''c'\''/c/g
  2093.         /#define.BSD43_CTRL/        s/'\''c'\''/c/g
  2094. !       /#[a-z]*if.*[ (]m68k/        s/m68k/__m68k__/g
  2095. !       /#[a-z]*if.*[ (]__i386/    s/__i386/__i386__/g
  2096. !       /#[a-z]*if.*[ (]i386/        s/i386/__i386__/g
  2097. !       /#[a-z]*if.*[ (]sparc/    s/sparc/__sparc__/g
  2098. !       /#[a-z]*if.*[ (]mc68000/    s/mc68000/__mc68000__/g
  2099. !       /#[a-z]*if.*[ (]vax/        s/vax/__vax__/g
  2100. !       /#[a-z]*if.*[ (]sun3x/    s/sun3x/__sun3x__/g
  2101. !       /#[a-z]*if.*[ (]sun3/        s/sun3/__sun3__/g
  2102. !       /#[a-z]*if.*[ (]sun2/        s/sun2/__sun2__/g
  2103. !       /#[a-z]*if.*[ (]sun4c/    s/sun4c/__sun4c__/g
  2104. !       /#[a-z]*if.*[ (]sun4/        s/sun4/__sun4__/g
  2105. !       /#[a-z]*if.*[ (]sun/        s/sun/__sun__/g
  2106. !       /#[a-z]*if.*[ (]ns32000/    s/ns32000/__ns32000__/g
  2107. !       /#[a-z]*if.*[ (]pyr/        s/pyr/__pyr__/g
  2108. !       /#[a-z]*if.*[ (]is68k/    s/is68k/__is68k__/g
  2109. !       /#[a-z]*if.*[ (]sun386/    s/sun386/__sun386__/g
  2110.         /#define.NULL[     ]/    i\
  2111.           #undef NULL
  2112.       ' $2/$file > $2/$file.sed
  2113. --- 132,148 ----
  2114.         /#define.CTRL/        s/'\''c'\''/c/g
  2115.         /#define._CTRL/        s/'\''c'\''/c/g
  2116.         /#define.BSD43_CTRL/        s/'\''c'\''/c/g
  2117. !       /#[a-z]*if.*[     (]m68k/        s/m68k/__m68k__/g
  2118. !       /#[a-z]*if.*[     (]__i386/    s/__i386/__i386__/g
  2119. !       /#[a-z]*if.*[     (]i386/        s/i386/__i386__/g
  2120. !       /#[a-z]*if.*[     (]sparc/    s/sparc/__sparc__/g
  2121. !       /#[a-z]*if.*[     (]mc68000/    s/mc68000/__mc68000__/g
  2122. !       /#[a-z]*if.*[     (]vax/        s/vax/__vax__/g
  2123. !       /#[a-z]*if.*[     (]ns32000/    s/ns32000/__ns32000__/g
  2124. !       /#[a-z]*if.*[     (]pyr/        s/pyr/__pyr__/g
  2125. !       /#[a-z]*if.*[     (]is68k/    s/is68k/__is68k__/g
  2126. !       /#[a-z]*if.*[     (]sun/        s/sun[234]\{0,1\}[cx8]\{0,1\}[6]\{0,1\}/__&__/g
  2127. !       /#[a-z]*if.*[     (]sun/        s/sun[234]?[cx8]?[6]?/__&__/g
  2128.         /#define.NULL[     ]/    i\
  2129.           #undef NULL
  2130.       ' $2/$file > $2/$file.sed
  2131.